home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Reqs / ReqToolsDemo.e < prev   
Encoding:
Text File  |  1994-11-27  |  1.3 KB  |  36 lines
  1. /* Encore une autre démo pour utiliser d'autres bibliothèques en E.
  2.    Maintenant, on le fait avec la reqtools.library.                */
  3.  
  4. MODULE 'ReqTools'
  5.  
  6. CONST FILEREQ=0,REQINFO=1
  7.  
  8. DEF colour,num=10,buf[120]:STRING,req
  9.  
  10. PROC main()
  11.   IF reqtoolsbase:=OpenLibrary('reqtools.library',37)
  12.     RtEZRequestA('Allons tester cette simple ReqTools library, OK ?',
  13.       'Pourquoi?|Pas encore|Oui! Voyons ça!',0,0,0)
  14.     IF (colour:=RtPaletteRequestA('Choisissez vos couleurs:',0,0))=-1
  15.       RtEZRequestA('Difficile à choisir, hein ?','Ouaip.',0,0,0)     /* requête couleur */
  16.     ELSE
  17.       RtEZRequestA('Vous aimez vraiment la couleur \d ?','Que dalle|Voui!',0,[colour],0)
  18.     ENDIF
  19.     RtEZRequestA('Maintenant une entrée ...','Quoi?',0,0,0)
  20.     RtGetLongA({num},'Entrez un nombre :',0,0)                   /* requête long */
  21.     StrCopy(buf,'bla',ALL)
  22.     RtGetStringA(buf,100,'Entrez n\aimporte quoi:',0,0)           /* requête chaine */
  23.     RtEZRequestA('C\aest parti pour une chouette requête de fichier...',
  24.       'Encore!encore!|Bof!',0,0,0)
  25.     IF req:=RtAllocRequestA(FILEREQ,0)
  26.       buf[0]:=0
  27.       RtFileRequestA(req,buf,'Choisissez vos fichiers:',0)
  28.       RtFreeRequest(req)
  29.     ENDIF
  30.     RtEZRequestA('C\aest çà.','Phew.',0,0,0)
  31.     CloseLibrary(reqtoolsbase)
  32.   ELSE
  33.     WriteF('Ne peut ouvrir la reqtools.library!\n')
  34.   ENDIF
  35. ENDPROC
  36.